PC Home 48/Fun Clicp Art 5000.iso/r/mbm/00869_PH- bt +.ls

Text File | 1996-05-11 | 606 b | 28 lines

on MouseClick
  global g1erSprLoc, gLabel, gPhLabel, gEtagDep, gEtagArr, gListCodPhy, gSujAct, gRetour, gCDpath
  if word 1 of the name of cast the castNum of sprite g1erSprLoc = "BTGOEI" then
    set gLabel to "PH:IN fi"
    set gPhLabel to "PH:OU"
    set gRetour to "PH:IN"
  else
    set gEtagArr to gEtagDep
    gBoutons(relache, g1erSprLoc)
  end if
end

on mouseDown
  global gNumSpr, g1erSprLoc, gBoutons
  set gNumSpr to g1erSprLoc
  gBoutons(appuie, gNumSpr)
end

on mouseUp
  global gNumSpr, g1erSprLoc
  curseur(1)
  if gNumSpr = g1erSprLoc then
    MouseClick()
  else
    pass()
  end if
end